﻿Public Class f_adopciones
    Dim c As New Controlador


    Private Sub f_adopciones_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        c.muestra_mascotas_adopcion()
        dg_adopciones.Columns(0).HeaderText = "Nombre"
        dg_adopciones.Columns(2).HeaderText = "Adopción"
        dg_adopciones.Columns(1).HeaderText = "Dueño"

    End Sub

    Private Sub b_adoptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        c.adoptar()
    End Sub
End Class